home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iifvs.asp < prev    next >
Encoding:
Text File  |  1999-07-09  |  8.1 KB  |  307 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8.     <!--#include file="iifvs.str"-->
  9.     <!--#include file="iilog.str"-->
  10. <% 
  11. Const DEFAULTMAXCONNECTIONS_NUM = 1000
  12. Const DEFAULTPORT = 21
  13.  
  14. On Error Resume Next  
  15.  
  16. Dim path, currentobj
  17.  
  18. path=Session("spath")
  19. Session("path")=path
  20. Session("SpecObj")=""
  21. Session("SpecProps")=""
  22. Set currentobj=GetObject(path)
  23.  
  24.  %>
  25.  
  26. <!--#include file="iiset.inc"-->
  27. <!--#include file="iisetfnt.inc"-->
  28. <!--#include file="iibind.inc"-->
  29.  
  30. <% 
  31.  
  32. function writeLogTypes(fieldname,value, id, adminonly)
  33.     On Error Resume Next 
  34.  
  35.     if id = currentobj.LogPlugInClsid then
  36.         writeLogTypes="<OPTION SELECTED VALUE='" & id & "'>" & value
  37.     else
  38.         writeLogTypes="<OPTION VALUE='" & id & "'>" & value    
  39.     end if
  40. end function
  41.  
  42. %>
  43.  
  44.  
  45.  
  46. <html>
  47.  
  48. <head>
  49. <title></title>
  50. <script language="JavaScript">
  51.  
  52.     top.title.Global.helpFileName="iipz";
  53.     
  54.     <!--#include file="iijsfuncs.inc"-->
  55.     
  56.     function SetBinding(){
  57.         document.userform.ServerBindings.value=document.userform.hdnIPA.value + ":" + document.userform.hdnPort.value + ":"; 
  58.     }
  59.  
  60.     function SetrdoMax()
  61.     {
  62.         document.userform.rdoMaxConnections[1].checked=true;
  63.         document.userform.hdnhdnMaxConnections.value=document.userform.hdnMaxConnections.value;        
  64.     }
  65.  
  66.     function SetMaxConn()
  67.     {
  68.         curval=parseInt(document.userform.hdnMaxConnections.value);
  69.         if(    document.userform.rdoMaxConnections[0].checked )
  70.         {
  71.             document.userform.MaxConnections.value=2000000000;
  72.         }
  73.         else
  74.         {    
  75.             document.userform.MaxConnections.value=document.userform.hdnMaxConnections.value;
  76.         }
  77.     }
  78.  
  79.     function setLogType(logCntrl,hdncntrl){
  80.         if (logCntrl.checked){
  81.             hdncntrl.value = 1;
  82.         }
  83.         else{
  84.             hdncntrl.value = 0;
  85.         }
  86.     }
  87.     
  88.     function setLogUIType(logCntrl){
  89.         
  90.         var logGuid = logCntrl.options[logCntrl.selectedIndex].value;
  91.  
  92.         var logType = "";
  93.  
  94.         if (logGuid  == "{FF160663-DE82-11CF-BC0A-00AA006111E0}")
  95.         {
  96.             logType = "EXT";
  97.         }
  98.         if (logGuid  == "{FF16065B-DE82-11CF-BC0A-00AA006111E0}")
  99.         {
  100.             logType = "ODBC";
  101.         }
  102.  
  103.         top.connect.location.href = "iisess.asp?setLogUI=" + logType +"&LogName=" +escape(logCntrl.options[logCntrl.selectedIndex].text);        
  104.     }
  105. </script>
  106. </head>
  107.  
  108. <body bgcolor="<%= Session("BGCOLOR") %>" topmargin="5" text="#000000"  >
  109. <TABLE WIDTH = 500 BORDER = 0>
  110. <TR>
  111. <TD>
  112. <%= sFont("","","",True) %>
  113. <B>
  114. <%= L_SITE_TEXT %>
  115. </B>
  116. <P>
  117.  
  118. <IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
  119. <%= L_VIRTUALSERVERID_TEXT %>
  120. <IMG SRC="images/hr.gif" WIDTH=<%= L_VIRTUALSERVERID_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">
  121. <form name="userform">
  122.  
  123. <table border="0" cellpadding="0">
  124.  
  125. <tr>
  126.     <td valign="bottom">
  127.         <%= sFont("","","",True) %>
  128.             <%= L_DESCRIPTION_TEXT %>
  129.         </font>
  130.     </td>
  131.     <td valign="bottom" colspan="2">
  132.         <%= sFont("","","",True) %>
  133.             <%= text("ServerComment",L_DESCRIPTION_NUM,"","","",false,false) %>
  134.         </font>
  135.     </td>
  136. </tr>
  137.  
  138. <tr>
  139.     <td valign="bottom">
  140.         <%= sFont("","","",True) %>
  141.             <%= L_IPADDRESS_TEXT %>
  142.         </font>
  143.     </td>
  144.     <td valign="bottom" colspan="2">
  145.         <%= sFont("","","",True) %>
  146.             <%= writeBinding("IPAddress",L_IPADDRESS_NUM,"","","SetBinding();",false,true) %>
  147.             <input type="hidden" name="ServerBindings" value="<%= currentobj.ServerBindings(0)(0) %>">
  148.         </font>
  149.     </td>
  150. </tr>
  151.  
  152. <tr>
  153.     <td valign="bottom">
  154.         <%= sFont("","","",True) %>
  155.             <%= L_TCPPORT_TEXT %>
  156.         </font>
  157.     </td>
  158.     <td valign="bottom">        
  159.         <%= sFont("","","",True) %>
  160.             <%= writeBinding("IPPort",L_TCPPORT_NUM,"","","isNum(this);SetBinding();",false,true) %>
  161.         </font>
  162.     </td>
  163. </tr>
  164.  
  165. </table>
  166. <P>
  167. <%= sFont("","","",True) %>
  168. <IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
  169. <%= L_CONNPARAMS_TEXT %>
  170. <IMG SRC="images/hr.gif" WIDTH=<%= L_CONNPARAMS_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">
  171. <P>
  172. <table border="0" cellpadding="0">
  173. <tr>
  174.     <td colspan="2">
  175.         <%= sFont("","","",True) %>
  176.             <%= printradio("MaxConnections", (currentobj.MaxConnections >=2000000000), "SetMaxConn();setCntrlState(!this.checked,hdnMaxConnections);",true) %>
  177.             <%= L_UNLIMITED_TEXT %>
  178.         </font>
  179.     </td>
  180. </tr>
  181.  
  182.  
  183. <tr>    
  184.     <td valign="middle">
  185.         <%= sFont("","","",True) %>
  186.             <%= printradio("MaxConnections", (currentobj.MaxConnections < 2000000000), "SetMaxConn();setCntrlState(this.checked,hdnMaxConnections);",true) %>
  187.             <%= L_LIMITTO_TEXT %>
  188.             <input type="hidden" name="MaxConnections" value="<%= currentobj.MaxConnections %>">            
  189.  
  190.         </font>
  191.     </td>
  192.     <td valign="bottom">
  193.         <%= sFont("","","",True) %>
  194.             <% if (currentobj.MaxConnections < 2000000000) then %>    
  195.                 <%= inputbox(0,"TEXT","hdnMaxConnections",currentobj.MaxConnections,L_CONNECTIONS_NUM,"","", "isNum(this,1,2000000001);SetMaxConn();",false,True,False) %>
  196.             <% else %>
  197.                 <%= inputbox(0,"TEXT","hdnMaxConnections",DEFAULTMAXCONNECTIONS_NUM,L_CONNECTIONS_NUM,"","", "isNum(this,1,2000000001);SetMaxConn();",false,True,False) %>
  198.             <% end if %>                                
  199.     </td>
  200.     <td valign="middle">
  201.         <%= sFont("","","",True) %>        
  202.                  <%= L_CONNECTIONS_TEXT %>
  203.         </font>    
  204.     </td>
  205. </tr>
  206. <tr>
  207.     <td>  </td>
  208. </tr>
  209.  
  210. <tr>
  211.     <td valign="bottom"><%= sFont("","","",True) %><%= L_CONNTIMEOUT_TEXT %>  </font></td>
  212.     <td valign="bottom">
  213.             <%= text("ConnectionTimeout",L_TIMEOUT_NUM,"","", "isNum(this,1,2147483646);",True,True) %>
  214.     </td>
  215.     <td valign="bottom">
  216.         <%= sFont("","","",True) %>    
  217.          <%= L_SECONDS_TEXT %>
  218.         </font>
  219.     </td>
  220. </tr>
  221.  
  222. <tr>
  223.     <td colspan="2" height="4"></td>
  224. </tr>
  225.  
  226. </table>
  227. <P>
  228.  
  229. <%= sFont("","","",True) %>
  230.  
  231. <%
  232. On Error Resume Next
  233. Dim LoggingModules,noLogging, Module, InfoNode, AvailMods
  234.  
  235. Set LoggingModules = GetObject("IIS://localhost/logging")
  236. Set InfoNode = GetObject("IIS://localhost/MSFTPSVC/Info")
  237. AvailMods = InfoNode.LogModuleList
  238. if err <> 0 then
  239.     noLogging = True
  240. end if
  241.                 
  242. %>
  243. <IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
  244. <% if noLogging then %>
  245.     <img align="top" src="images/checkoff.gif" width="13" height="13">
  246. <% else %>
  247.     <% if currentobj.LogType = 1 then %>
  248.         <INPUT TYPE="checkbox" NAME="hdnLogType" checked OnClick = "setLogType(this,document.userform.LogType);setCntrlState(this.checked,document.userform.hdnBtnLogProps);setCntrlState(this.checked,document.userform.LogPlugInClsid);top.title.Global.updated=true;">
  249.     <% else %>
  250.         <INPUT TYPE="checkbox" NAME="hdnLogType" OnClick = "setLogType(this,document.userform.LogType);setCntrlState(this.checked,document.userform.hdnBtnLogProps);setCntrlState(this.checked,document.userform.LogPlugInClsid);top.title.Global.updated=true;">    
  251.     <% end if %>
  252.     <INPUT TYPE="hidden" NAME="LogType" VALUE="<%= currentobj.LogType %>">
  253. <% end if %>
  254. <%= L_LOGGING_TEXT %>
  255. <IMG SRC="images/hr.gif" WIDTH=<%= L_LOGGING_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">
  256. <P>
  257. <table border="0" cellpadding="0">
  258. <tr>
  259.     <td colspan="1">
  260.         <%= sFont("","","",True) %>        
  261.             <%= L_LOGFORMAT_TEXT %>
  262.             <%= writeSelect("LogPlugInClsid", 1,"setLogUIType(this);", false) %> 
  263.                 <%
  264.                 
  265.                     if noLogging then
  266.                         Response.write "<OPTION>" & L_NONEINSTALLED_TEXT & "</OPTION>"                            
  267.                     else
  268.                         For Each Module in LoggingModules
  269.                             If InStr(AvailMods, Module.Name) Then
  270.                                 Response.write writeLogTypes("LogPluginClsid", Module.Name, Module.LogModuleId,false)                         
  271.                             End If
  272.                         Next
  273.                     end if
  274.                 %>
  275.             </select>
  276.         </font>
  277.     </td>
  278.     <td><%= sFont("","","",True) %>
  279.     <% if not noLogging then %>
  280.         <input type="button" name="hdnBtnLogProps" value="<%= L_EDIT_TEXT %>" onclick="popBox('LogDetail',<%= L_IILOG_W %>,<%= L_IILOG_H %>,'iilog');">
  281.     <% end if %>
  282.     </FONT>
  283.     </td>
  284. </tr>
  285.  
  286. </table>
  287.  
  288.  
  289. </form>
  290.  
  291. </font>
  292. </TD>
  293. </TR>
  294. </TABLE>
  295. <% if not noLogging then %>
  296. <script language="JavaScript">
  297.     setCntrlState(document.userform.rdoMaxConnections[1].checked,document.userform.hdnMaxConnections);
  298.     setCntrlState(document.userform.hdnLogType.checked,document.userform.LogPlugInClsid);
  299.     setCntrlState(document.userform.hdnLogType.checked,document.userform.hdnBtnLogProps)
  300.     setLogUIType(document.userform.LogPlugInClsid)
  301. </script>
  302. <% end if %>
  303. </body>
  304. </html>
  305.  
  306. <% end if %>
  307.